﻿Public Class UrlFrm

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ua As ArrayList = Me.Tag

        Dim org = TextBox1.Text.Trim
        Dim sp(1) As Char
        sp(0) = Chr(10)

        Dim tm As String() = org.Split(sp, StringSplitOptions.RemoveEmptyEntries)
        For Each _str As String In tm
            If Not ua.Contains(_str) Then
                ua.Add(_str)
            End If
        Next




    End Sub
End Class